home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / comm / cnet / ALL_1_0.lha / 2
Encoding:
Text File  |  1994-03-16  |  1.3 KB  |  68 lines
  1. /* 
  2.  
  3.    ALL 1.0
  4.  
  5.     Add ALL to the bbsmenu by:
  6.  
  7.         ALL, Access Level Lister|/#0Pfiles:ALL_1.0/
  8.  
  9.     Thats it. Enjoy the software!
  10.  
  11.     Greetings to:
  12.             Lord Berek
  13.             Heavy Metal
  14.             Lazarus Long
  15.             Light Speed
  16.             
  17.  
  18.     Call the Underground BBS (207) 882-7787
  19.  
  20. */
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27. options results
  28.  
  29. signal on ERROR
  30. signal on SYNTAX
  31.  
  32. title="\f1\c1\z6 Access Level Lister \q1 \z2\c1                               \q1\n1"
  33. unused='<<<UNUSED>>>'
  34.  
  35. Accounts=0
  36. call open(UData,"SysData:bbs.adata","R")
  37. do zz=1 to 24
  38.   Account_Pos=0
  39.   call seek(UData,Account_Pos)
  40.   Account=readch(UData,21)
  41.   Null_Pos=pos(d2c(0),Account)
  42.   Purged=0
  43.   if Null_Pos>0 then do
  44.     if Null_Pos=1 then purged=1
  45.     if purged=0 then Account=substr(Account,1,Null_Pos-1)
  46.   end
  47.   if purged=1 then Account=Unused
  48.   Acc.Accounts=Account
  49.   Accounts=Accounts+1      
  50.   Next_Account=135
  51.   call seek(UData,Next_Account)
  52. end
  53. call close(UData)
  54.  
  55. display:
  56. transmit title
  57. do i=1 to 12
  58. j=2*i;x=j-1;y=j;x=x-1;y=y-1
  59. one=(left(acc.x,21));two=(left(acc.y,21))
  60. v=y')';d=x')'
  61. mmm=(right(v,3));nnn=(right(d,3))
  62. col='\z1\c4';num='\z5\c1';cool=col
  63. if acc.x=unused then  col='\z1\c6'
  64. if acc.y=unused then cool='\z1\c6'
  65. transmit '\q1'num''nnn'\q1 'col' 'one'\q1 'num''mmm'\q1 'cool' 'two'\q1 '
  66. end
  67. transmit '\n1\z2\c1                              \q1 \z6\c1    by:\c7  Alex Dread   \q1'
  68.